 Loading |
|
Loading |
| VBScript |
| JavaScript |
| Powershell |
Search Options: Apply a Theme to a Microsoft Word Document
|
||
|
Set objWord = CreateObject("Word.Application")
objWord.Visible = True Set objDoc = objWord.Documents.Add() Set objSelection = objWord.Selection objSelection.TypeText "Here is a bulleted list." objSelection.TypeParagraph() objSelection.TypeParagraph() Set objRange = objDoc.Paragraphs(1).Range objRange.Style = "Normal" Set objRange = objDoc.Paragraphs(3).Range objRange.ListFormat.ApplyBulletDefault objSelection.TypeText "Item 1" objSelection.TypeParagraph() objSelection.TypeText "Item 2" objSelection.TypeParagraph() objSelection.TypeText "Item 3" objSelection.TypeParagraph() Set objRange = objDoc.Paragraphs(6).Range objRange.Style = "Normal" objSelection.TypeParagraph() objSelection.TypeText "No longer in a bulleted list." objDoc.ApplyTheme "Balance" | ||
© 2008 - 2013 Boris Toll :: Scripts available: 6.481 :: :: scriptbox.toll.at :: :: powered by www.toll.at :: | ||
